/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 4-Fonts & Software / Applications / Aldus FreeHand 2.02 / Aldus FreeHand 2.02.rsrc / Post_9122

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 2d 08 2f 65 78 74 72 | 75 64 65 2a 7b 20 2f 63 |.-./extr|ude*{ /c|
|00000010| 68 67 20 78 64 66 20 2f | 64 65 6c 74 61 79 20 78 |hg xdf /|deltay x|
|00000020| 64 66 20 2f 64 65 6c 74 | 61 78 20 78 64 66 20 2f |df /delt|ax xdf /|
|00000030| 63 31 20 78 64 66 31 2f | 74 6f 70 20 78 64 66 20 |c1 xdf1/|top xdf |
|00000040| 2f 72 69 67 68 74 20 78 | 64 66 20 2f 62 6f 74 74 |/right x|df /bott|
|00000050| 6f 6d 20 78 64 66 20 2f | 6c 65 66 74 20 78 64 66 |om xdf /|left xdf|
|00000060| 20 2f 63 32 20 78 64 66 | 3a 67 72 61 79 73 74 65 | /c2 xdf|:grayste|
|00000070| 70 20 2e 30 31 20 6c 74 | 20 7b 2f 66 61 63 74 6f |p .01 lt| {/facto|
|00000080| 72 20 2e 39 35 20 64 65 | 66 7d 20 7b 2f 66 61 63 |r .95 de|f} {/fac|
|00000090| 74 6f 72 20 2e 37 35 20 | 64 65 66 7d 20 69 66 65 |tor .75 |def} ife|
|000000a0| 6c 73 65 07 6e 65 77 70 | 61 74 68 0e 63 31 20 6c |lse.newp|ath.c1 l|
|000000b0| 65 6e 67 74 68 20 32 20 | 65 71 1d 7b 2f 63 31 20 |ength 2 |eq.{/c1 |
|000000c0| 63 31 20 73 70 6f 74 74 | 6f 70 72 6f 63 65 73 73 |c1 spott|oprocess|
|000000d0| 20 64 65 66 7d 20 69 66 | 0e 63 32 20 6c 65 6e 67 | def} if|.c2 leng|
|000000e0| 74 68 20 32 20 65 71 1d | 7b 2f 63 32 20 63 32 20 |th 2 eq.|{/c2 c2 |
|000000f0| 73 70 6f 74 74 6f 70 72 | 6f 63 65 73 73 20 64 65 |spottopr|ocess de|
|00000100| 66 7d 20 69 66 0f 2f 63 | 6e 74 20 74 6f 64 72 61 |f} if./c|nt todra|
|00000110| 77 20 64 65 66 03 2f 74 | 73 3f 7b 67 73 61 76 65 |w def./t|s?{gsave|
|00000120| 20 63 75 72 72 65 6e 74 | 70 6f 69 6e 74 20 70 6f | current|point po|
|00000130| 70 20 2f 78 73 74 61 72 | 74 20 78 64 66 20 62 6c |p /xstar|t xdf bl|
|00000140| 6f 63 6b 78 6f 66 66 20 | 77 6f 72 64 78 6f 66 66 |ockxoff |wordxoff|
|00000150| 20 61 64 64 20 79 6f 66 | 66 41 72 6d 6f 76 65 74 | add yof|fArmovet|
|00000160| 6f 20 73 63 61 6c 65 66 | 20 64 75 70 20 73 63 61 |o scalef| dup sca|
|00000170| 6c 65 20 72 69 67 68 74 | 20 6c 65 66 74 20 73 75 |le right| left su|
|00000180| 62 20 32 20 64 69 76 20 | 78 73 74 61 72 74 20 6c |b 2 div |xstart l|
|00000190| 65 66 74 20 73 75 62 20 | 73 75 62 3b 6e 65 67 20 |eft sub |sub;neg |
|000001a0| 63 75 72 74 65 78 74 68 | 65 69 67 68 74 20 32 20 |curtexth|eight 2 |
|000001b0| 64 69 76 20 6e 65 67 20 | 72 6d 6f 76 65 74 6f 20 |div neg |rmoveto |
|000001c0| 61 77 69 64 74 68 73 68 | 6f 77 20 67 72 65 73 74 |awidthsh|ow grest|
|000001d0| 6f 72 65 7d 64 65 66 14 | 31 20 31 20 74 6f 64 72 |ore}def.|1 1 todr|
|000001e0| 61 77 20 64 69 76 20 6e | 65 67 20 30 01 7b 1d 64 |aw div n|eg 0.{.d|
|000001f0| 75 70 20 2e 30 32 20 6c | 65 7b 70 6f 70 20 30 7d |up .02 l|e{pop 0}|
|00000200| 69 66 20 2f 66 72 61 63 | 20 78 64 66 0c 67 73 61 |if /frac| xdf.gsa|
|00000210| 76 65 20 63 62 6c 65 6e | 64 08 64 75 70 20 65 78 |ve cblen|d.dup ex|
|00000220| 65 63 14 63 6e 74 20 31 | 20 6e 65 7b 67 72 65 73 |ec.cnt 1| ne{gres|
|00000230| 74 6f 72 65 7d 69 66 12 | 2f 63 6e 74 20 63 6e 74 |tore}if.|/cnt cnt|
|00000240| 20 31 20 73 75 62 20 64 | 65 66 05 7d 20 66 6f 72 | 1 sub d|ef.} for|
|00000250| 21 2f 74 73 7b 67 73 61 | 76 65 20 61 77 69 64 74 |!/ts{gsa|ve awidt|
|00000260| 68 73 68 6f 77 20 67 72 | 65 73 74 6f 72 65 7d 64 |hshow gr|estore}d|
|00000270| 65 66 20 63 31 20 73 65 | 74 63 6f 6c 6f 72 20 64 |ef c1 se|tcolor d|
|00000280| 75 70 20 65 78 65 63 20 | 63 32 20 73 65 74 63 6f |up exec |c2 setco|
|00000290| 6c 6f 72 23 63 75 72 74 | 65 78 74 68 65 69 67 68 |lor#curt|extheigh|
|000002a0| 74 20 2e 30 30 35 20 6d | 75 6c 20 73 65 74 6c 69 |t .005 m|ul setli|
|000002b0| 6e 65 77 69 64 74 68 28 | 2f 74 73 20 7b 7b 66 61 |newidth(|/ts {{fa|
|000002c0| 6c 73 65 20 63 68 61 72 | 70 61 74 68 20 73 74 72 |lse char|path str|
|000002d0| 6f 6b 65 7d 74 61 7d 20 | 64 65 66 20 65 78 65 63 |oke}ta} |def exec|
|000002e0| 08 67 72 65 73 74 6f 72 | 65 04 7d 62 64 66 0a 2f |.grestor|e.}bdf./|
|000002f0| 62 6c 6f 63 6b 78 6f 66 | 66 37 7b 72 69 67 68 74 |blockxof|f7{right|
|00000300| 20 6c 65 66 74 20 73 75 | 62 20 32 20 64 69 76 20 | left su|b 2 div |
|00000310| 63 75 72 72 65 6e 74 70 | 6f 69 6e 74 20 70 6f 70 |currentp|oint pop|
|00000320| 20 6c 65 66 74 20 73 75 | 62 20 73 75 62 7d 64 65 | left su|b sub}de|
|00000330| 66 05 2f 79 6f 66 66 36 | 7b 63 75 72 74 65 78 74 |f./yoff6|{curtext|
|00000340| 68 65 69 67 68 74 20 32 | 20 64 69 76 20 64 65 6c |height 2| div del|
|00000350| 74 61 79 20 74 6f 64 72 | 61 77 20 64 69 76 20 63 |tay todr|aw div c|
|00000360| 6e 74 20 6d 75 6c 20 61 | 64 64 7d 64 65 66 09 2f |nt mul a|dd}def./|
|00000370| 77 6f 72 64 78 6f 66 66 | 1e 7b 64 65 6c 74 61 78 |wordxoff|.{deltax|
|00000380| 20 74 6f 64 72 61 77 20 | 64 69 76 20 63 6e 74 20 | todraw |div cnt |
|00000390| 6d 75 6c 7d 64 65 66 07 | 2f 74 6f 64 72 61 77 33 |mul}def.|/todraw3|
|000003a0| 7b 20 64 65 6c 74 61 78 | 20 64 75 70 20 6d 75 6c |{ deltax| dup mul|
|000003b0| 20 64 65 6c 74 61 79 20 | 64 75 70 20 6d 75 6c 20 | deltay |dup mul |
|000003c0| 61 64 64 20 73 71 72 74 | 20 66 61 63 74 6f 72 20 |add sqrt| factor |
|000003d0| 6d 75 6c 1e 31 30 30 20 | 63 68 67 20 73 75 62 20 |mul.100 |chg sub |
|000003e0| 61 62 73 20 66 61 63 74 | 6f 72 20 6d 75 6c 20 61 |abs fact|or mul a|
|000003f0| 64 64 21 64 75 70 20 30 | 20 6c 65 7b 70 6f 70 20 |dd!dup 0| le{pop |
|00000400| 31 7d 7b 72 6f 75 6e 64 | 7d 69 66 65 6c 73 65 7d |1}{round|}ifelse}|
|00000410| 20 64 65 66 07 2f 73 63 | 61 6c 65 66 2b 7b 31 30 | def./sc|alef+{10|
|00000420| 30 20 63 68 67 20 73 75 | 62 20 61 62 73 20 31 30 |0 chg su|b abs 10|
|00000430| 30 20 64 69 76 20 74 6f | 64 72 61 77 20 64 69 76 |0 div to|draw div|
|00000440| 20 63 6e 74 20 6d 75 6c | 27 63 68 67 20 31 30 30 | cnt mul|'chg 100|
|00000450| 20 67 65 7b 31 20 61 64 | 64 7d 7b 31 20 65 78 63 | ge{1 ad|d}{1 exc|
|00000460| 68 20 73 75 62 7d 69 66 | 65 6c 73 65 7d 64 65 66 |h sub}if|else}def|
|00000470| 0e 2f 73 70 6f 74 74 6f | 70 72 6f 63 65 73 73 2b |./spotto|process+|
|00000480| 7b 61 6c 6f 61 64 20 70 | 6f 70 20 73 70 6f 74 73 |{aload p|op spots|
|00000490| 20 65 78 63 68 20 67 65 | 74 20 61 6c 6f 61 64 20 | exch ge|t aload |
|000004a0| 70 6f 70 20 70 6f 70 20 | 70 6f 70 23 30 20 31 20 |pop pop |pop#0 1 |
|000004b0| 33 7b 70 6f 70 20 34 20 | 69 6e 64 65 78 20 6d 75 |3{pop 4 |index mu|
|000004c0| 6c 20 34 20 2d 31 20 72 | 6f 6c 6c 7d 66 6f 72 1b |l 4 -1 r|oll}for.|
|000004d0| 34 20 61 72 72 61 79 20 | 61 73 74 6f 72 65 20 65 |4 array |astore e|
|000004e0| 78 63 68 20 70 6f 70 7d | 62 64 66                |xch pop}|bdf     |
+--------+-------------------------+-------------------------+--------+--------+